home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / sqlgrid.exe / SQLPROCS.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-02-20  |  3.6 KB  |  138 lines
  1.  
  2. Sub Build_Selectables (ThisCBox As Control)
  3.   Result% = SqlCancel%(WrkConn%)
  4.   Result% = SqlSendCmd(WrkConn%, "sp_vbReturnSelectables")
  5.   If Result% = FAIL% Then Exit Sub
  6.      
  7.   RowProcess% = 99
  8.   Do Until RowProcess% = NOMOREROWS%
  9.      Result% = SqlNextRow(WrkConn%)
  10.      If Result% = NOMOREROWS% Or Result% = FAIL% Then Exit Do
  11.      
  12.      TableOwner$ = RTrim$(SqlData$(WrkConn%, 1))
  13.      TableName$ = RTrim$(SqlData$(WrkConn%, 2))
  14.      TableFlag$ = RTrim$(SqlData$(WrkConn%, 3))
  15.   
  16.      If TableFlag$ = "V" Then
  17.         ThisCBox.AddItem TableOwner$ + "." + TableName$ + "   (View)"
  18.      Else
  19.         ThisCBox.AddItem TableOwner$ + "." + TableName$
  20.      End If
  21.   Loop
  22. End Sub
  23.  
  24. Sub BuildColList (ThisBox As Control, TableName$, TableOwner$)
  25.   
  26.   rc% = SqlCancel%(WrkConn%)
  27.   Cmd$ = "sp_vbColCount '" + TableName + "', '" + TableOwner$ + "'"
  28.   Result% = SqlSendCmd%(WrkConn%, Cmd$)
  29.   If Result% = FAIL% Then Exit Sub Else Result% = SqlNextRow%(WrkConn%)
  30.   Count% = Val(SqlData$(WrkConn%, 1))
  31.   ReDim TableCols(Count%)
  32.   
  33.   rc% = SqlCancel%(WrkConn%)
  34.   Cmd$ = "sp_vbColDef '" + TableName + "', '" + TableOwner$ + "'"
  35.   
  36.   Result% = SqlSendCmd%(WrkConn%, Cmd$)
  37.   If Result% = FAIL% Then Exit Sub
  38.  
  39.   RowProcess% = 99
  40.   i% = 1
  41.   Do Until RowProcess% = NOMOREROWS%
  42.      Result% = SqlNextRow(WrkConn%)
  43.      If Result% = NOMOREROWS% Or Result% = FAIL% Then Exit Do
  44.        
  45.      Column$ = RTrim$(SqlData$(WrkConn%, 1))
  46.      TableCols(i%).Name = Column$
  47.      TableCols(i%).Type = Val(SqlData$(WrkConn%, 2))
  48.      TableCols(i%).Length = Val(SqlData$(WrkConn%, 3))
  49.      i% = i% + 1
  50.      ThisBox.AddItem Column$
  51.   Loop
  52. End Sub
  53.  
  54. Function Process_query% (Cmd$, numcols%)
  55. On Error GoTo VBError
  56.  
  57.   rc% = SqlCancel%(SqlConn%)
  58.   rc% = SqlSendCmd%(SqlConn%, Cmd$)
  59.   If rc% = FAIL Then
  60.      Process_query = FALSE
  61.      Exit Function
  62.   End If
  63.   numcols% = SqlNumCols%(SqlConn%)
  64.   Process_query% = TRUE
  65. Exit Function
  66.    
  67.  
  68. VBError:
  69.   MsgBox Error$, 32, "VB Error!"
  70.   Exit Function
  71. End Function
  72.  
  73. Sub SetBuffSize (Conn%, Sz%)
  74.   S$ = LTrim$(Str$(Sz%))
  75.   rc% = SqlSetOpt%(Conn%, SQLBUFFER, S$)
  76. End Sub
  77.  
  78. Function GetPrevRow% ()
  79.   
  80. End Function
  81.  
  82. Function GetRow% (Conn%, Row&)
  83.   Result% = SqlGetRow%(Conn%, Row&)
  84.   If Result% = NOMOREROWS% Or Result% = FAIL Then
  85.      GetRow% = FALSE
  86.   Else
  87.      GetRow% = TRUE
  88.   End If
  89. End Function
  90.  
  91. Function FillBuffer% (Conn%)
  92.   n% = 0
  93.   rc% = MOREROWS
  94.   Do Until (rc% = NOMOREROWS) Or (rc% = BUFFULL) Or (rc% = FAIL)
  95.      n% = n% + 1
  96.      rc% = SqlNextRow%(Conn%)
  97.   Loop
  98.   FoistRow& = SqlFirstRow&(Conn%)
  99.   FillBuffer% = n%
  100. End Function
  101.  
  102. Function DoLogin% ()
  103.    Status% = SqlSetLoginTime%(30)
  104.    SqlLogRec% = SqlLogin%()
  105.    If SqlLogRec% = 0 Then
  106.       Screen.MousePointer = 0
  107.       MsgBox "Could not allocate a login structure", 0, "Login Error"
  108.       DoLogin% = FALSE
  109.       End
  110.    Else
  111.       DoLogin% = TRUE
  112.    End If
  113.    Status% = SqlSetLPwd%(SqlLogRec%, Password$)
  114.    Status% = SqlSetLUser%(SqlLogRec%, Login_id$)
  115.    Status% = SqlSetLApp%(SqlLogRec%, "UnderDog")
  116.    Status% = SqlSetLHost%(SqlLogRec%, Environ$("MACHID"))
  117. End Function
  118.  
  119. Sub Build_Users (ThisCBox As Control)
  120.   ThisCBox.AddItem "<ALL>"
  121.   
  122.   Result% = SqlCancel%(WrkConn%)
  123.   Cmd$ = "sp_vbDBUsers"
  124.   Result% = SqlSendCmd(WrkConn%, Cmd$)
  125.   If Result% = FAIL% Then Exit Sub
  126.      
  127.   RowProcess% = 99
  128.   Do Until RowProcess% = NOMOREROWS%
  129.      Result% = SqlNextRow(WrkConn%)
  130.      If Result% = NOMOREROWS% Or Result% = FAIL% Then Exit Do
  131.      
  132.      DBUser$ = SqlData$(WrkConn%, 1)
  133.      ThisCBox.AddItem RTrim$(DBUser$)
  134.   Loop
  135.   ThisCBox.Text = ThisCBox.List(0)
  136. End Sub
  137.  
  138.